home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 71 / 071.d81 / font changer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  96 lines
  1. 1 ifpeek(787)<>1thensys57812"fnt",8,0:poke780,0:poke781,0:poke782,56:sys65493
  2. 2 poke787,1:ifch=1thenpoke53272,31:goto27
  3. 3 poke53272,31:poke53281,0:poke53280,0:print"[147][158]":poke55,0:poke56,56:clr
  4. 4 f1$="[204][207][193][196][211][212][193] [210]":f2$="[208] [210] [197] [211] [197] [206] [212] [211]":f3$="[194][217]":f4$="[202][197][198][198][210][197][217] [204]. [202][207][206][197][211]"
  5. 5 s=54272:fori=0to24:pokes+l,0:next
  6. 6 pokes+1,100:pokes+5,9:pokes+24,15
  7. 7 c(1)=15:c(2)=12:c(3)=11:f$="   [198][160][207][160][206][160][212][160][160][160][195][160][200][160][193][160][206][160][199][160][197] [210]":mu=1
  8. 8 c(7)=11:c(6)=12:c(5)=15:c(4)=12:fori=1to6:readfo$(i):fo$(i)=fo$(i)+" [198][207][206][212]"
  9. 9 next:readfo$(7),fo$(8),fo$(9):i=0
  10. 10 goto24
  11. 11 poke646,6:print""spc(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  12. 12 forc=1to5:printspc(5)"[221]                             [221]":next
  13. 13 printspc(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":gosub14:return
  14. 14 poke198,0:poke214,6:print:print:forc=1to10:poke646,14:ifmu=cthenpoke646,7
  15. 15 printtab(20-len(fo$(c))/2)fo$(c):next:mu=9:c=6:mu=1
  16. 16 poke214,18:print:print"   [158] [213][211][197] [195][213][210][211][207][210]/[210][197][212][213][210][206] [212][207][160][211][197][204][197][195][212] [198][207][206][212] "
  17. 17 print"   [155]abcdefghijklmnopqrstuvwxyz   12345"
  18. 18 print"   [193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]   67890[145]":return
  19. 19 poke646,c(i+2):print""spc(13)f1$
  20. 20 poke646,c(i+1):printspc(13)f2$
  21. 21 poke646,c(i):printspc(6)f$
  22. 22 poke646,c(i+1):printspc(19)f3$
  23. 23 poke646,c(i+2):printspc(12)f4$:return
  24. 24 gosub11:goto27
  25. 25 i=i+1:ifi=5theni=1
  26. 26 gosub19:return
  27. 27 geta$:gosub44:gosub25:ifa$=""then27
  28. 28 um=mu:ifa$="[145]"thenmu=mu-1:ifmu<1thenmu=9
  29. 29 ifa$=""thenmu=mu+1:ifmu>9thenmu=1
  30. 30 ifa$=chr$(13)then46
  31. 31 poke214,6+um:print:printtab(20-len(fo$(um))/2)"[154]"fo$(um)
  32. 32 poke214,6+mu:print:printtab(20-len(fo$(mu))/2)"[158]"fo$(mu):goto27
  33. 33 i=1:gosub19
  34. 34 ifa$="q"then36
  35. 35 ch=1:loadfi$,8,1
  36. 36 fori=62464to62564:pokei,0:next
  37. 37 poke787,0:open15,8,15,"r0:loadstar briefs=loadstar briefs":input#15,er
  38. 38 close15:u=1
  39. 39 ifer<>63thengosub89:goto37
  40. 40 poke53272,21
  41. 41 a$="loadstar briefs":q$=chr$(34):poke53281,0:poke53280,0:print"[147]"
  42. 42 print"[144]load"q$a$q$",8"
  43. 43 print"run":poke631,13:poke632,13:poke198,2:end
  44. 44 c=c+1:ifc>7thenc=1
  45. 45 poke646,c(c):poke214,6+mu:print:printtab(20-len(fo$(mu))/2)fo$(mu):return
  46. 46 ifmu>6then51
  47. 47 gosub57:ch=1:loadaa$+" font",8,1
  48. 48 data"[211][200][210][197][214][197][208][207][210][212]","[211][212][197][197][204] [195][201][212][217]","[212][200][201][194][207][196][193][213][216]","[195]-128"
  49. 49 data"[195]-64","[204][207][193][196][211][212][193][210]","[213][211][197][160][217][207][213][210][160][207][215][206][160][198][207][206][212]","[201][206][211][212][193][204][204][160][217][207][213][210] [206][197][215][160][198][207][206][212]"
  50. 50 data"[210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210] [194][210][201][197][198][211]"
  51. 51 onmu-6goto62,52,36
  52. 52 foru=1to4:gosub89
  53. 53 ifa$="q"thenrun
  54. 54 fa$="fnt":close15:open15,8,15,"s0:fnt":close15
  55. 55 gosub83
  56. 56 pokes+4,37:fort=0to500:next:pokes+4,36:next:run
  57. 57 aa$="":fori=1tolen(fo$(mu))-5
  58. 58 a2$=mid$(fo$(mu),i,1)
  59. 59 ifa2$<"[193]"ora2$>"[218]"thenaa$=aa$+a2$:next:goto61
  60. 60 aa$=aa$+chr$(asc(a2$)-128):next
  61. 61 i=0:return
  62. 62 poke214,18:print:fori=1to5:print"                                      "
  63. 63 next:print"":poke214,19:print:print"[158][197]nter name of font: ";
  64. 64 poke53272,23:li=16:gosub72:poke53272,31:print:ifw$=""thenrun
  65. 65 poke214,19:print:print"          [159][201]nsert disk/[159]hit[158] [210][197][212][213][210][206]  "
  66. 66 geta$:ifa$<>chr$(13)then66
  67. 67 open15,8,15,"i0:":open2,8,2,w$+",p,r":input#15,e$,e$:ife$<>"ok"then71
  68. 68 get#2,a$,a$:fori=14336to15072step4:get#2,a$,a1$,a2$,a3$
  69. 69 pokei,asc(a$+chr$(0)):pokei+1,asc(a1$+chr$(0))
  70. 70 pokei+2,asc(a2$+chr$(0)):pokei+3,asc(a3$+chr$(0)):next:close2:run
  71. 71 print"[147]"e$:print"press a key...":poke198,0:wait198,1:run
  72. 72 w$="":print">[146][157]";:iflimit=0thenlimit=80
  73. 73 geta$:ifa$="[145]"ora$=""ora$="[157]"ora$=""ora$=""ora$="[147]"ora$=""then73
  74. 74 as=asc(a$):ifas=13oras=141oras=20then79
  75. 75 ifpeek(653)=2orpeek(653)=4then73
  76. 76 iflen(w$)=limitthenifas<>20andas<>13andas<>141then73
  77. 77 ifas=34or(as>=133andas<=140)or(as>=1andas<=31)then73
  78. 78 w$=w$+a$:printa$">[146][157]";:goto73
  79. 79 ifas=20andw$<>""thenw$=left$(w$,len(w$)-1):print"[157]<[146] [157][157]";:goto73
  80. 80 ifas=20andw$=""then73
  81. 81 ifas=13thenprint" ":limit=0:return
  82. 82 sys57812fa$,8:poke193,00:poke194,56:poke174,00:poke175,64:sys62954
  83. 83 poke780,2:poke781,8:poke782,2:sys65466
  84. 84 poke824,70:poke825,78:poke826,84
  85. 85 poke780,3:poke781,56:poke782,3:sys65469
  86. 86 poke251,0:poke252,56
  87. 87 poke780,251:poke781,0:poke782,64:sys65496
  88. 88 return
  89. 89 poke214,20:print:forz=1to3:print"                                      ";
  90. 90 next:print"":fa$="fnt"
  91. 91 poke214,20:print:printtab(8)"[155][201][206][211][197][210][212] [211][201][196][197]"u"of [204][207][193][196][211][212][193][210]"
  92. 92 printtab(6)"[193][206][196][160][208][210][197][211][211][160][210][197][212][213][210][206][155]/ [158][209][155] [212][207][160][193][194][207][210][212]"
  93. 93 geta$:ifa$<>"q"anda$<>chr$(13)then93
  94. 94 return
  95. 95 open15,8,15,"s0:font changer":close15:save"font changer",8:end
  96.